home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Gfx / paint.e < prev    next >
Encoding:
Text File  |  1994-11-27  |  706 b   |  24 lines
  1. /* exemple d'utilisation des polices de caractères intégrés pour des images. 'paint.m' convertis
  2.    de fichier font avec font2obj (aminet?) et o2m
  3. */
  4.  
  5. OPT OSVERSION=37
  6.  
  7. MODULE 'tools/clonescreen', '*paint', 'libraries/diskfont'
  8.  
  9. PROC main() HANDLE
  10.   DEF screen=NIL,font=NIL,win=NIL,tf:PTR TO diskfontheader
  11.   tf:={paintf}; tf:=tf.tf
  12.   screen,font:=openclonescreen('Workbench','bla')
  13.   win:=backdropwindow(screen)
  14.   SetFont(stdrast:=screen+84,tf)
  15.   TextF(200,40,'A B C D E F G H ')
  16.   EasyRequestArgs(win,[20,0,'hm','hein','Voui'],0,NIL)
  17. EXCEPT DO
  18.   closeclonescreen(screen,font,win)
  19.   SELECT exception
  20.     CASE "SCR"; WriteF('Pas d'écran!\n')
  21.     CASE "WIN"; WriteF('Pas de fenêtre!\n')
  22.   ENDSELECT
  23. ENDPROC
  24.